home *** CD-ROM | disk | FTP | other *** search
/ 100 Best Shareware & Freeware Games / 100 Games.iso / Cards / PySol / pysol460.exe / {app} / python / DLLs / img1.2 / pkgIndex.tcl < prev   
Encoding:
Text File  |  2001-07-27  |  402 b   |  15 lines
  1. # Tcl package index file, version 1.0
  2.  
  3. if {[package vcompare [info tclversion] 8.0] < 0} return
  4.  
  5. proc imgifneeded dir {
  6.     rename imgifneeded {}
  7.     if {[package vcompare [info tclversion] 8.1] < 0} {
  8.     regsub {\.} [info tclversion] {} version
  9.     } else {
  10.     set version {}
  11.     }
  12.     package ifneeded Img 1.2.3 "package require Tk\nload [list [file join $dir img12$version.dll]] Img"
  13. }
  14. imgifneeded $dir
  15.